From: Glenn Morris Date: Wed, 30 Sep 2009 02:26:12 +0000 (+0000) Subject: (semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10202 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ca19e9fcbcf4bdfec0b8ac6873061879c3657a6a;p=emacs.git (semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'. --- diff --git a/lisp/cedet/semantic/bovine/gcc.el b/lisp/cedet/semantic/bovine/gcc.el index 49c65366c2a..5466546b61c 100644 --- a/lisp/cedet/semantic/bovine/gcc.el +++ b/lisp/cedet/semantic/bovine/gcc.el @@ -171,15 +171,18 @@ It should also include other symbols GCC was compiled with.") (gcc-include-c++-ver (expand-file-name ver gcc-include-c++)) (gcc-include-c++-ver-host (expand-file-name host gcc-include-c++-ver))) (setq c-include-path - (remove-if-not 'file-accessible-directory-p - (list "/usr/include" gcc-include))) + ;; Replace cl-function remove-if-not. + (delq nil (mapcar (lambda (d) + (if (file-accessible-directory-p d) d)) + (list "/usr/include" gcc-include)))) (setq c++-include-path - (remove-if-not 'file-accessible-directory-p - (list "/usr/include" - gcc-include - gcc-include-c++ - gcc-include-c++-ver - gcc-include-c++-ver-host))))) + (delq nil (mapcar (lambda (d) + (if (file-accessible-directory-p d) d)) + (list "/usr/include" + gcc-include + gcc-include-c++ + gcc-include-c++-ver + gcc-include-c++-ver-host)))))) ;;; Fix-me: I think this part might have been a misunderstanding, but I am not sure. ;; If this option is specified, try it both with and without prefix, and with and without host